unit EmpresaDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ZDataset, ZSqlUpdate, MainDM, db, QueryConditions;

type

  { TEmpresaData }

  TEmpresaData = class(TMainDataModule)
    EmpresaDatasource: TDatasource;
    EmpresaZQuerybairro: TStringField;
    EmpresaZQuerycaixa_postal: TStringField;
    EmpresaZQuerycep: TStringField;
    EmpresaZQuerycomplemento: TStringField;
    EmpresaZQuerydesc_cidade: TStringField;
    EmpresaZQueryemail: TStringField;
    EmpresaZQueryendereco: TStringField;
    EmpresaZQueryid_cidade: TLargeintField;
    EmpresaZQueryid_empresa: TLargeintField;
    EmpresaZQueryid_pessoa: TLargeintField;
    EmpresaZQuerynome_pessoa: TStringField;
    EmpresaZQuerynota: TStringField;
    EmpresaZQuerynumero: TLongintField;
    EmpresaZQuerytelefone_celular: TStringField;
    EmpresaZQuerytelefone_fax: TStringField;
    EmpresaZQuerytelefone_fixo: TStringField;
    EmpresaZQuerytipo: TStringField;
    EmpresaZQueryuf: TStringField;
    EmpresaZUpdate: TZUpdateSQL;
    EmpresaZQuery: TZQuery;
    procedure DataModuleCreate(Sender: TObject);
    /// Abre o DataSet
    procedure OpenDataSet(); override;
    /// Fecha o DataSet
    procedure CloseDataSet(); override;
    /// Realiza busca
    /// @param(Condicoes são as condições para a busca)
    /// @param(Tabela é a tabela no banco de dados)
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  EmpresaData: TEmpresaData;

implementation

uses ConnectionDM;

{ TEmpresaData }

procedure TEmpresaData.DataModuleCreate(Sender: TObject);
begin
    MainDataSet := EmpresaZQuery;
end;

procedure TEmpresaData.OpenDataSet;
begin
  ConnectionData.EmptyQuery(EmpresaZQuery, 'empresa');
end;

procedure TEmpresaData.CloseDataSet;
begin
  EmpresaZQuery.Close();
end;

procedure TEmpresaData.Search(Condicoes: TQueryConditions; Tabela: string);
begin
   ConnectionData.OpenQueryConditions(EmpresaZQuery, Tabela, Condicoes);
end;

initialization
  {$I empresadm.lrs}

end.

